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Liebe Leser , 




& Computer-Kontakt ist 




kleiner geworden, hand- 




■L inhor utiH , at -|D+Tt- 




IT auch geheftet. Da fallt 




^ in Zukunft nichts mehr 




HJW auseinander. Das war 




Wf. auch wirklich notwen- 


1 iVWi 


f/f dig geworden, df?nn wenn 


* J man bedenkt , durch wie- 




viel Hande die Hefte 




sie endlich bei Ihnen ankommcn , 


| da war die 


bisherige Herstellung nicht 




orteilhaft. Manche Hefte sahen 


| dadurch am 


Kiosk sehon arg 2erfleddert aus . 






| Der Umfang 


hat auch wieder zugenommen. 


■ Diesmal si 


d es 72 Seiten und das alles 




fiir 2,40 DM. Welche Heimcoro- 




hrift bietet fur diesen Preis 


■ den gi^ich 


n Umfang ? 


| Diese Ausgabe ist noch eine Doppel nummer , 


■ aber ab Ok 

■ weitet. De 


ober geht es dann monatlich 


nachste Eratverkauf stag ist 


■ dor 24.9.8 


. 


Hier in di 


sen Heft ist ein Fragebogen 


abgedruckt 


dcssen Bcantwortung fur uns 


sehr wicht 


g ist. Der.ri nar «cnn wir die 


e'er Lesor se^.Tj <e"i"isn, konnen 








uns deshalb freuen, wenn 






ihre Meinung iiber Computer-Kontakt 


schreiben 


(iirden. Jeder Fragebogen ist 




hsten Mai und - den Fragebogen 




nicht vergessen. Ihr 


%¥Ka4 


X, 


Thomas Ebe 


"le, Chefredakteur 
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ion as DM 5.- 
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XPEED- 
COMPILER 

DM 258.- 
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1 Kuta: ProgrammiErlagili 



juk*e Nhl-.-im^ixchl daran 



Basic-Urlaub 

lm Kurbod HaflUnig. di 



Bei uns konncn Sie j^SH'^iTTC; 
mitmachen SnSS 




CLUB-NACHRICHTEN 



^ USER-CLUBS S SzC 

VC-64 User Club g^lpps 



Compute™ grOBere Vma- ^J^pg^jS ££ 















abgctipptCD Pmgrimmr 'in.! 
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; ." 4. Hessischer Compiitertag 






li-:l::L skin. Dcr Andraiig wi 



von Apple. 



(bd Stcllunp de: i^k-ii:Mh" 



.lit MiigliLliki 



CBM M liset Group Mntfwe 






.'...n^raTagn, 1 



JSL . UJ 1 '^""*' Astro Computer Club Alarl User-Club 

duhbeilnig: Ncin HI Mrtgjteiier Klaus GnntJier KoUt Hbuicbi-Siegf 

.: . ■'■■■■ "". j s ft C«<Ste: CM uod Spi. I 











Dcr '■ lnb ii 






rfilfdicdcr. Fin 






Svt-ans*, 


cplatt. 



Guido Koch, Im Su£[>en Ji"l, Clubzeilunft- 6 Au^ibi'n "■<■■ 
TV]. (liiSSfl/M: MitglL«!iT:ZiirZeitZ5Leute 



OLUB-NACHRICHTEN 



ELEKTRONIK-imd 
COMPUTERTAGE SAAR 



i.:icTi L.^niLiiiiily- 



7 -9.1 Kongresshalle 
SEP Saar briicke n 



ELEKTRONIK 

UND MICRO- 

COMPUTER 
--TAGE 



Der Computerclub 
Karthause 



Der Spectrum-User-Club 
Wuppertal 



lisertluh sneht Uscrelub 






Tl-Software Mwte«*ta —'._.- 

Interessengemeinschaf t gegrundet Icooh h ? b' 16i 7ii ****** 

Gei '- ll -' : A ?!'l' 1 II. He. Ill ii„.™,„a,i7 

■i ■ ,..:■-: ■..,■: ■,:!■:. ..-, .... ... :■■. .,:.-:-- ■. . . ■■ . . ., .. ;.' ,,.,.,;. ,..:,. : ■ ; ■_■ -- 

1 I- Mir 20 DM ™™ 






a Mkglicdcr aus dem Kaum 



fr: J".... "' • ™er erfand die Null ? 



Erne kleine Denksportaufgabe 



id der sehr geringsn Ge- TI-BASIC Pr 



id Unna i ujid „., t | in ^. hci dm !'.r.-ir,.-,-n pi- Vorgauuei. aUiKiiirin: 
leinschaft fur nauao wie in det Pol j tij( ^ = 



Schreiben Sie tins 
wen n Sie Fragen haben 



Wer kan is h el fen 






Itchune 50 DM. Aa.T bil 
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|5 Faroe, Grafik, Ton, Spiele 



■ ■■■■■■■■■■ Vcrlflg IWT. ValiitsliJUcil 

Zweimal Basic-Brevier m^S^S^T*^ 

vonSigmarWittig ^ u 



Basic-Uirvier. 

Eine Einfuliruug in die Syslematische 
Program mie rung Aufgabensammlung 

232 Seiten, 34,- DM, 210 Seilen, 29.80 DM, 

ISBN 1-922705-01-4 ISBN 3-922705-02-2 

Verlag Heinz Heisc, 
Hannover 
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Das Musikbuch zum 
Commodore 



von Thomas I M^hscl 
:iWSeiten,W,-DM 
Verlag Dais Ekcker. 
DQiseklurf 



Nath si>vicl negativer Krilik Die thenrriiitiim M,j 

Das Buch scheint keine »Kin- den alle auliwijji, ji 

pier isl von beslcr Ouiiliti't sth]LcJJi:nJ moditc ich festsiel- 

miening gen ulzl warden, da ein dafl ci in diesem liucli 



X?-St3 SIS Hardwareerweitenuigen 

r^tenTtn KSTiS fur Commodore 64 



.",,' M,T-.i.:r,.-.„.h.:i 1 . ;: „ki J .nn ll -n. von Ekkchard Floge! 

BCBOndcn, lobcnswert ist ' 170 Seileo, 39 ,- DM 

■ ■ ■ ■ .....■■■ ' ' . ' . ' . ' '■ '■>■-'- ' '■ L ■■■ '' : '' 




BUCHER ,i 



Pascal: 



Flinfiihrung, Progrunmentwicklung, Strukturen 

von Jurt>en Plale und chc dcr Well, urn ihn anschl 

Paul Wittstock tend mil kmnplizierti 

ca.420Stilcn,48,-DM 




Sinclair ZX Spectrum 3ES2S 
Basic Handbuch 
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•■.'iiin Apple-soft unci bneger- 
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1 i . hd.-Fchlern.el 





..hit clan™ Moglichkeiten der 



pite I libe; C> rafik und So 



■lsein |W5i-ivc.n Em- groJJe Hilfe se 



flerdem audi in Simon's £ 



flugc in die Programmicispra- 






[II fille Hcfchk-. 



Software-Lieferkatalog 



MESSEN 



07.09.W.C 


■- 


Saarbtflcte 


s^^^^x^^ 




■ft 




CAMP'S4 -Omipi '■■ 










w.ia-12. 


D.84 




COMP AS '84 - Konleren? und 




ELfcKTROTECIIN[K'R4 


1.VII.-17 


.84 


U.mrten 


ELECTRONJCA 






* 



Der Tastatunneister ja'ESSTSSSE 

hWHZdklhlta blone. die fiber die Tastaturagf ^^'"v^^T^t'ht ^''^l!?^ 

mehr ncucs Zubehoi fur ver- den Computet gelsgl wird. SoflwareprodukKn vmcbiCTle- Software ■ Hardware - Sen 

schiedene Computer von meli- !■:■■■ ,. i. i ■"■ „, , .,,!,,..,., „.,^li;h. Urn die 



Kunttotf beychende Serin- 



SPIEL-REVIEWS 



JSPIELEIMTESTJ 
!■■■■■■■■■■■ 

Chinese Juggler 

Fur den Commodore 64 



Super Pipeline 

Fur den Commodore 64 



:sel ublich. von ei- auJhau lasi volls(sbin1ji "i:ii 
ucn Spiclidcc uuv scmnclii Dei Scliien^ki'ii-jjidi! 












StlmrllickrH inul Aueeiini::B 






^&^r& 


Teller auf lIlu Slaniim w scl- 










Imhcrcr Sthu'KrijiVj.ihsrai: 


■ '">■ ■■ i' 1 






















stalling wmsbes. 


:;£££z 












then Vi l i«.-Sirin.1.',rrt. Sr.sir 








dem SP * B * W ?" 1 C ' n ** 


Handler. Ocean 
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SPIEL-REVIEWS 



Mr. Wimpy 

Machen Sie die bcslen Hamburger der Stadt 




BEWITCHED 

in der VC 20-Gnindversitm 






mOglich »ird. Kin Joystick ist 
!'ii>iit- ciijfii^u-lie Anleitungisler- 



Spfck- we ™g mireim 
■ ten. D^ Sp 



ptantasievollE Spieli 



mtc Labynnlh at Sie ins LabyiiQIh eintiriugcD 
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SPIEL-REVIEWS 



Pacfire Construction Set 




Allc Spick findcn in to 




,-,.,.. i.-,;. 


mmaulbaucii 


,- 












Grafik) slatt. »"i'oi das bpid 




























































*ftaj£«L£!£lL 


s"h™«ra ™ e iSrp^^i™= 




£X-SpectJum (161 


r4',v 


!™ mc S"" 1 


werden Uber fasialui jjclmli. 


J*K.i, Ji-n 


ZX-S1 (16K) und 





Fljairen laufco achr cckig. 



d gib! e& Aciiunspkk 1 iii.l.sli. iIms^ Spu- . 



SPIEL-REVIEWS 



Superchess 3.0 - besser als alle anderen 




SPIEL-REVIEWS is 



SCUBA DIVE 

Tiefseelaudien mit deni 7,X Spectrum 48 K 






rem 


gioncn giffl es Ho 


en, in slm „ des ZX S 


vhwKNukcirsmifc rstilti. dic 




























1 rf.c klcuicn Per 


en Ik- Grafik, die ma 



Deathchase 

ZX Spectrum KV48K 



•a^ima— ■ mr-CTgp) 



SPIEL-REVIEWS 



BRANDHEISS!!!!! 




VC20istdieGrafikebe 
cinfach nut Kfach. Jc I 



BERICHT 



Der neue Oric-Atmos 



Ein Ttestbericht aus unserem Elekronik 



igrammicmioglichkcltei 



:,■,:!,, . ] athiVrnM.- .i-S9l2 1.1 vnrlianden. Die i 






ingiblfkeiiieelilau 



:u den AnschlUssebezeichnelwerden. nii±i Jk- i.mrd'u;::. AUu alks Kiir/.pr^, amrac au5 t 
-ii. onmerwicdcrvtrkuietabcrwc- wilder zusammengesctirauM Handbnch aispmhien I 

■ '■■ : -" ■■ > " ■ ■" ■■■ : -' ■■■' ■■ ■ ■ ■ ■■ : -- - : : - ,'. ■ .■ . ; -..- , . 












lauer an. Ak srsies dcnp]a|lc Kcg , das ImKn | ebeI1 Nach RQctfragen wurde versi- p^a, 

... «ik uik Die--. !.*-*. ■■■•:•.■■ :i MivierWo- MOS ,, 



icgbint cin wahres umiangrcichen Angcbi 

'■.:■■ ■ '■■ ■ ■■■'■' ' ■■■■ ■ 
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PROGRAMME 




. : •;:■■' ■. .:. .:.: ■> ::■!:! ■ i ■ 


Fncilrch Hunold 




jI-eIe 


§| 








Sie finden die Programmiistings fur 
Superhim auf Seitc 52 
BZZZZZ ab Seite23 
Mauserennen ab Seite41 
Tasehendieb ab Seite 48 



Mause-Rennen 

Fur den CM 



Tasehendieb 

!e Me- AHe Atari-Computer 



3110). Diese Rngtim: si 
die cine Maus wahreod 






s Spielregeln warden 



mi>.kli*iitl.ttochdasRen- AhslandenauldeT 



iMIJJJJIJflllJJLHJA =xH=i 



SK Haufigkeit ries 

SKBHauQgkeildcsB 

■ ■■ . ■ ■ 

Schleifeo usw. tsnura! 



PROGRAMME 



DESERT FLIGHT 




PROGRAMME 



DRAWER 

Zeiehnen mit dem ZX-Spectnii 




i CLEflR20OO:CLS71D] 
I PLBT"y3003T5"HJE^ 
.0 PM0D£3>1!PCLG1 



ilPRINTS244>" 



BiL3eEEL7DL^EE'L3EFL7DEEL1ECCML 



22 PAINTfS 


3,143> 


24 P(lINT<2 

25 CIRCLE! 

26 CIRCLE! 


0,155 


29 CIRCLE! 


90.126 


33 PAINTM 
31 CIRCLE! 


°;? 3 ;? 



i LiNE(x.Y)-(x.Y).FReseT:NE>;T y.x 

i DRAW-BMlQQM0[)C4U2LHLHLHLHLi3Hai.2GZLlL2L2GlLlG2L2GLG2L2GLGZL2GLG2L2GL3G2i.3G2G2 
32DF2RltJNR10GZLZGLlDDlF2fDFRFRZIiFZRFRZFZU1R'IEZLEL2E3L30U2R3ER3ER3ER3ER3EU3H2U2L 
2HLZHL3HL1H" 



50 PfllNTlE 
I RAINT15 



i CIRCLE! B7lf 



^+5,+lNHlR2ElH2NGZH2£lR2FlG2 , 

1+<5. + OE3H2LlG2FlRZ- 

■ +OFR2EH4ER2I-; : MOtFRZEBM-l-4 . +1RZEU1HL.2GMFBM+I? 



FDGL3RF3BM*' 
? CLSOIPRINTS2I 

72 IF N>10 OR W<2 THEN70 
3 CLSOiPRINTfZOOr'BF'IEL-LWEMGE 1 



=-NH3ED3NG3FU1RN03RND3RNDlR2E12R3F3GaLAH12R3F12R4F1G2L3NU5L4NU5NG5LtNU5l.3HJ 



nputer Kontakt 8-9, 



103 IF PEEK<A52BI)> = 12A0R PEEK! 



L10 IF Q=1THEN C 



H.ZZ--31-4G 
.■*STR*(U> 



)1L35D1R351)1L35D1R3SD1L35D1R35D1L35' 



i sod: timers 



U= 1 R3CU4LZ2E2ZLJ4L22MR16( 



4 PflINT(169t63). 

145 DRftWBMlfO.SQS 

£ PAINT 1193 



151 DRAH"S4' 
2 RETURN 
I CUSS! PRINTS 1 



NnCHEINKflL-i 



? IF I*=*N'THEN EOfc F=1T0SELSE FOR F 

) PLBI'CFFGAFAGCfEEAFEE 

1 SCREENO.D 

I PLAY'CFFGAilliAGFECDEEFF 



DRAGON -TI99/4A 



,71 PLAY 1 
L7S PLAY 

176 PLAY 

177 PLAY 
17B P.ETUI 
179 PLAY 
1BD PLAY 
1B1 PLAY 
182 PLAY 

3 PLAY 1 



03V30T5 

L5ie;ia;L9;8iL3EEE 

L7DL6EFL3EFL7DGL1E 

CD02L3AL403D02G 

:N 

yiBT5O1L10CP5 

T255L255" IFOR F=1T031 IPLAY'OIl 

U1BT5L5D3AGFGP20L2C 



TSU3Da2L5GL4ECa3CD2B03DD2FPiiAABAGEL4Fi:' [RETURN 
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430 CALL CHAna2*."00DQ D 0COQ03E7FFF7F"*RPT*<"0",26>B''FCF6FC7B") 




460 CALL CHARllGB.RPT*i.'-D", 16!£RPT*< ■'BD 11 ,E) &RP"J» ( "U'- .32) 1 


50Q CALL CHAR1136, " DO D0QOQ7ODD0O0D1B3B3C3FFFFFF OGOOG □DDQQFF207OFBB 0040 6FEFFFFFF" 

530 FOR 1-15 TO 19 STEP 2 :: FOB J=l TO 31 STEP 2 il CALL HCHARI I ,J,BB) 1 r" CALL H 
540 FOB 1-15 TO 19 STEP 2 :; FOR J=2 TO 32 STEP 2 II CALL KCHARCJ . J ,89) : : CALL H 

600 CALL HCHAR(24,7.112,24) 11 CALL HCHAR (23 . 23 . 1 1 2 . 6.i : : CALL HCHAR(22,9 ,112,6) 


6*0 IF 5YN THEN CALL SAY i "HREADY TO START* 11 ) 
660 CALL 90UND<-60, -7,4,110, 3) 

76D CALL POSITlorJ(«l,l!v>ll IF X<17 THEN . CALL HOTI0N(4H ,4, Jl ) 

630 CALL P0SITION(#2lil'vi:i IF X THEN 650 ELSE 6P-21 

B40 CALL BPsnE<tlSF,116.16,INT(31*RND*41) , 256, □ , INT <3"RND»4 J »56N<RND-.5) ) 

SSO P-INT<256»RND+1) :: CALL SPRITE<#15 ,128,2, 1 , P) 

690 CALL POSITIONS, X,Y,*15.A15. BIS):: P1=SSN< X-A15) I I P2-9SN<V-B1S) 

920 CALL C0INCI1H , #15.10, C> i I IF C THEN CALL DELSPR1TE'#1S ) : : SOTO 107D 
930 CALL POSITION (*15,X,Y> : : IF X<105 AND BNO< . 95 THEN B60 
940 CALL DEL5PRITEI4ll5>i : FL1-Q :: SOTO 860 

■101G CALL DELSPRITE.B1Q1 .; CALL SOUNII (-8D0. -6 , 2) I I CALL PATTEBNI#CL, 124) 
1020 PTZ-PTZ+2*TI :: DISPLAY ATf 21 , BISIZE <S ) iBTR*(PT+PTZ> 



Tl 99/4 A 
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Abenteuer 

IS PRINT AT 1,0;;| KM 


ZX81 29 

1000 print bt 6, 10; "H^^^^M" 
iqoi print bt -. - ■ ■" 

•in m w m\*\ 

laes print rt h,ib;"| H 1" 
100E. PRINT 12. .;;.;;■ ■ ■" 

10B7 PRINT RT 13,13, 1 || I 

1006 PRINT HT ILie-'lMBM" 
1B09 PRINT AT 4,5; "JSS^ 


19 FOR E=0 TO ZE-1 




23 FOR B=B TO LE-1 




■JLspu^u^ - *"*'** 


1033 PRINT RT 7 , 10; "■ M ■" 
1B24. PRINT IE; "■ H ■" 
1025 FHINT RT 3, 10; "■_ ^_ | 
1036 PRINT RT 10, lO;'* ^| ^;; 

1039 PRINT RT lallB, j| ft ■" 


' 301 FOR G^i t6 5B 
205 LET LO=l 

307 FOR T-aa TO 3 STEP -1 
30S LET J=PEEK (PEEK 1639Bta3S» 


l!ls°gl;il* d 

103? PRINT HI lU.ia; 7 ^ ^^H" 


311 IF J=1S THEN QOTO 61SO 

3ia IF T < -L THEN PRINT AT 20, T; 

310 IF T I -L THEN GOTO 150B 


104.4 PRINT HT B,10;;'B «H«<< 

iltl PRINT RT 1B^10;% ^^5l" 
1047 PRINT PIT 11,10; "■ ^■^■" 
104© PRINT RT 12,10;"| ^^H" 

1049 PRINT RT 13,J0;"B ■ " 

1050 PRINT RT J-.IS; 'H 77 


80S LET Lrt*lINKE¥*. ,, H"J-[TN»EY 
SIB LET YrPEEK (PEEK 1G39B+25B»- 


111 limit. 

Hi lis w IlilfiJ ■ 


S37 IF ZE=& RND L=3 THEN GOSUB 
EtiB IF ZE=16 RNO L=3 THEN GOSUB 


sill Ills si; Hi! (■! 

loss print m LB, IS Tj| ^3K 


111 if^t^then'neJc? t 

presents" 


1073 print rt 7,ib,;;b ■;; 

■ 1075 print rt slip;'! M L 
1075 FRINT HT le.lB,'! _ J" 
1077 PRINT RT 11,10;"! ■ M 
107B PRINT RT 12,1Q;;;1 K ■" 

IOSO PRINT RT 4." 17 ; :, gfc»" 
103a NEXT G 

1B90 LET R*-" PRODUCED JULY 




liao FOR G=l TO LEN RS 



' 
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■■ fmSm MECKERECKE iii Z S tSSS 

■ */t#E" ■■■■■■■■■■■■■ '■'--- ,' ■';:' 



Programm-Tauscher - 
Freiwild fur Betriiger ? 



grain m- Rau htopiiri da.- Il.ind- 


iiiien.oj.1 -irJ eini: Finns 












■ ...... : ,, :; ,,.■ 












■cl'iilm t'Lr lnllilll ■:■... SlIiiui 




























geschAdigC hal?en. l'ii:..|- Ein- 
























Vertasiei ,1« Sdu-cilKiis in. 


I.TI'fl!'li: JTII'IY.o.'Tl d.LET.n dll' 




Sol'twareliau&er sdiadigcn, i&i 




















NachleihgfiirAe Oi-rfiKiJaiirun 










iiu..i dem ^L-drelheii bei. Abge- 






KCKlasi tra S l. d.h. der Klager 




..n.G.li.' StliuKI <Jes Beklaglen 


gcbQhrcnvcrDr.Jnu.na, i'hwohl 



LMwr Hot Sinclair, 



11 Vcisprcchcn gchjllcn. Ein die Ndihlragc, hk-n ?! 



SobeherrschenSieden 
Commodore 64! 



Uescommoilore64. 

\ Eine Einf iihning 
1 f iir den Einsteiger. 

VAX Kk, \«»re!["s™ 

t!wl.> SS£Sk!S ^^^^^^mem ««w \ "it SIM0M?5 BASIC. 
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Bel Ults duf geaieckeil fwrdra, Wcr also elHn Grand hit, lib 



MECKERECKE 



COLOIR GENIE nrdn 



1,r,ik: IV„ ; s :"lL 1"llSM>>1*/.*"M a « 



XSOFTsowecinSiiiii.vVl,)- k>n ,!=>, ( UI.OUK OENlfi hii 



schem[d.«Cl)L<XIK GENIE 


.. . 


lerface zu bc- 


litfcrlcn BviJicnMr.-,.-,-.;.,. 


-in I'M.'nmm dessen Ent- 






























.,■■ :■:■ : ■ ■ ■■ : ■ :■■■ : 














sie he!e e e.i , 
























Ciiellc. (Definition des 










Mctkcrcrc,). Das bedcutet. 




















die eenormleD +/- 12 Volt 


































ifeKWB«fc«,™fc™™i«- 


dazu. 




NES dafu. vortanden 


GmUfctalbert.Fni.kfnn 




I 
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Leserbriefe » 




Mitarbeitern fur 
ihre tatkrsftige 
Lolers turning. 

Die Redaklion 



Scfiutzen Sie Ihren wertvollan Computer du 

Staubschutzhauben 


« 


?i°"SSZ 


*i S M S tf,el a a K »., an ti 9e ™™ 




i™.maBBBf»- 


pi 


*H0hte1alloElncrn>- 


W:S : 


PnW 




*w- 


s* 


- 


***"" 






m^micro 


COMPUTE^^K.r^ 


ro, «., 


^*H 
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H 


ij 


O^^B ssrs«_. 

■I 


r;rrr 


Z££%J?ZZ, 


==s 


Der 00 S'i^l^!SZ>™n 




SI^JSilS™ 


IxH 


P 


|f|i™E; 


Hh 


W^1~?h 


Sh 


™dH3| 


■W 


JamBS Vogel / Nevin B. Scrimshaw 
Mutikbuch HSU 


Maschmsncode- Rout men 


Owen Bishop j^m 
Elnfache Zuntzgerite ftr 



Computer Konlakt 8-9/B4 



COMPUTER-BUCHVERSAND 











Loyik det Programmlan 



imodore 64 Sclele-Buch 



B 



64 m : 




1 






c CT ui.,Kom.Kn-9/B4 COMPUTER-BUCHVERSAND 



Splreli. Program™ (Or VC 20 Programme, Spiele, Graphlk BastBHnumrnar HB 



""•£■ Sinclair ZX 3 

id Uthingfibuch fur Com- flash: Handb 
Syb(uigBd,< 



ZX-Spectrum, ZX 81 



Floppy-Disk Eelbattaii-Hanflhuch BesBllnummer SI 27 DM 16.60 SpMbum, Holactor 1S 






| Commodore 04 - Prog 



on Mlkroprozresoran (BOBO. 



30 Progr.. Rufidlagrarrr 
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COMPUTER-BUCHVERSAND 



X 



usgabebeleNefiirBjIdschlnn.Drucker.Kassel- 

. :.:.-. ■■ :..■ ■ ■ :■■: ■■■■'■ -:■:■ :■■■:: ■ 
IsianfligksJI von BASIC-DialeKten im Zusa 






HUEBER SOFTWARE TASCHENBUCH 



Sp'ala liir lhr«n Atari 






BUCH-BESTELLKARTE 



















































































COMPUTER-BUCHVERSAND 



he Anleltung Apple It 



P'ugramnierhandbuch RJi 



m Tips, Tricks l. Prograr 



Vlewes 1 904, (Pragrammbibi. U 



Lehr- und Obnngabuch fGr da 
Vieweg 1&Q3. (Progr, v. Tasch 



B bsic • Weii ™ i, i ser «* Apple li 



Vieweg 198J, (Prograranbibl. Ml- 



flhtuelle . afolgreidie Computerbiicher 




RKM 5pn> and Spirit 



"*™^^SU ^SS^I'SSSS.'Srs; TOLc ™ IDEA Verlag GmbH 

•■■n^rtiHv ™tdm<Moi«;*,*t™ia 1 , 1 «ra«ti* D« perMic Mm m Wmm B039 Puchhdm 

• ..lTPnwnn.IK.iHU.Eb- F-r.:^-^- ■:■.::,,, .,r.,^^ MM COBBri-^ ^ ^ ^ Tel. (0 69) BO 32 65 

MM pmh,- isnNjimHa-x ' ' p„»j, aatimiwt* ' ' imb.- (08105)9124 

Fordem Sie unseren Gesamtprospekt und unsere Novitaienvorschau an! 
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Bildschirm-Loschen 

FQrdenC64 






Is i HESEEEE™: 


o-^S-— "»="' 


140 REM «»« KARL5TRAS3E 3 ***• 
ISO REM ***■* 6601 KLARENTHAL *■»** 

190 REM "•• COMPUTER: **** 
ZOO REM ««** WC 64 «»»* 


270 PRINT"!?! 


350 REM ZA = ZEILENANFANG 
360 REM 5 A ■ SPALTENANFANG 
370 REM AZ ■ AN2AHL ZEILEN 


400 REM SVNTAX: SVS AD , ZA ,SA, AS, AZ 


420 BDSUB 10000: REM MA5CHINENPR6-LESEN 


300 REM *»• DEMO »** 
320 FDRI-1T024 


350 i 

600 REM LQESCHROUTINE 


620 SYSSA.4,3,6,9 


810 P0KE19S.0: WAIT 198, 1 
900 END 


10010 iREADA 

10020 : POKESA+I.A 

1O040 RETURN 


32003 DATA2, 105, 1,144, 7, 172, 166, 2, 200, 140 ,169,2,141,167,2,32,253,174,12,156,183 
320O5 DATA2, 141, 174, 2, 169, 0,141, 171, 2, 141, 172, 2, 169, 32, 174, 167, 2, 142, 223, 197 


32009 DATA168, 2, 140, 174,2, 141, 167, 2, 141, 173, 2, 24, 236, 170, 2, 144, 171, 96 



Mauserennen 



SIB POKEE040, : 



n am a ■ a a a w 
m mm w 

a ■ a - a ■ a ■ s • a ■ a a a a- 
a - a ■ a - am am a m am am a ■ 

a - a ■ am a a a a a a a ■■ 
a ■ a - a ■ a a a ■ a ■ a m a a- 

a ■ aa aaaa a ■ a s a a a a* 



3:POKE2042, i: 



350 F0R1-8T016E:P0KEV+2,1:F( 



> gosub 10500 



1 REt^FLflTZ" 



'"a AM HEUTISEN REW4THG STftRTEN FOLGENOE" 
"8 VOl-LBLUT-MftEUSE :" 

"■ aaPED BftRoi>B aaFLYrNe mouses "Filler jimb- 



es0 cosijEsasBa 



;:e koennen ihre uetten uor . 
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730 PRINT-M REIflEN TAETIG 



764 PRINT"1I 2U BEGIh 






SEB ]FVAL<S*>>BfiM3VftL<f 



) DASS SIE OPTIMALE ■ 



J aiBBBB □*■■ 



»=INZftHL DER h 



P1ELER <MAK G> 
.*;"■" IS0TOB48 



■ a ■ as- 

anas a ■■ 

an a n a n a n a ■ a ■ a Banal* 
as aaaaaaan a s a ■ as a ■ a ■ a ■ 
iiaiain ai n an an a ■ an an 
asanas an an anananan anas 

a nan a nan a ■ an a ■ a ■ a ■■ 

'KEV t4 , £50 : FOKEV *B , £50 : POKE V*B , £50 



1165 PHINTTflBOB); "□ 



1E4B P0KEV+S1,8 


1350 PRIMT-J- 


1302 REM *** AUSUERTUNG t*t 


1305 GOSUB10500 


1307 PPiNT-MMMMMMI a^RGEBNIS-HUSLeRTUNGB" : PR INTTflS 138 1 "QlfiPITHL- 




1320 PRINT"B"N*<fi>TFIB<l£)":' '! 


1 330 IFkKCfl J ■ ITHENGOTO 1350 


1340 PRIMT"- ,, M(RJ-DM n SK(fl)=K<fi»-M(n)!PRIh4TTflB(27)'a-K<ft>-DM-iG0TB]37O 


1370 ^^■*' M<A>1Q<I) " DM ' :K< ' 1)iK<,,> * M(n> * Qtl):PRIMrrfl8<S7) " n " K,:, "" DM * 


1468 PRIMT-MO NOCK EINMfiL [J^Nl 7" 


1410 GETASi JFft*="THENI410 


14S0 IFflS^'N'THENEND 


1430 lFn*='J"THENGOT[ja00 


1440 OOTO1410 1 






3010 FORI=1T05!QO(1)-1S-Q<I)IXT(I)=0:HU)-20:|-E«T 




3030 POKEV+1G,0 


3105 lFINT(RM3(0)tOQ(l>)>STHENQQ<I J=Q0(H-1.£5 


3107 IFINT<RMX0>tQQ<I) X2THENQQ < I > =QGK 1 ) * . 75 






3 ISO 1FX( J)>ES5THENPQKEV+ie,PEEK<V + lG)t2tU-l):M<I)=0!XT<I>-l 




3130 IFXT(I) = 1ANDX( 1 > >50THEW<ETURN 


3140 P0KEV+E*(I-1),XU) 




3170 P0KE5423G, 15iP0KE54273 , 1G! PDKE542B0 , 16 : PQKE54272 ,20: P0KES4273 ,57 


4000 REM tit SIEGESf*LOOIE *** 




4020 P0KE5I*24,15 


4030 POKESI+5,21 JPDKES It 12 ,2 1 


4040 POKES I +G,0: POKES I + 13,0 


4050 FORJM00TO10STEP-10iFORK=255TOBSTEP-20 


4055 POKESI*4,0:POKESH-U,0 




4070 P0KESI+7,£tJ:pOKES!+S,K 


4OS0 P0KESI+4,17:PC1K£SI*11,33 


4090 NEXTK,J 


*«•»* *' ' N 


10001 REM .*tt UP. RENN8HHN **** 




10010 Pm**m 


10020 E—'ji 1 ] 1 1 Ill m . 


10030 PRINT :, ;H'F«E*F«E* 


10040 P0KE53281 ,1 


10050 PRINT-HI | 1 MEUSE-JtENNEr*- 



C64 



;iNTSS*-Ml"';:| 



1B570 PR 
13598 PR 



UP. MAUSBER6 



a m a ■ m m a m -w ■ a m a 

a m a ■ a m a m a ■ ai m a 

nt' a m a ■ a ■ a m a * ai ■ a 

a ■ a ■" 

RETURN 



2B0S0 DATA a,B r B.e 



,15t3HS:P0KEH,£ 



T^iTDD.eaeiftKT 



5 DHTfi53,59,l,2 



35,100,4,85,180 



HLS-SOFT 




■ J.U.-J.1J. M ,■,,■■ | 
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GBASIC 64 - die Supererweiterung 

Fantastisehe Moglichkeiten mil dem C64 




3; Laden Ober Hoppy o 



casi: i;rk goto™ 

ijj - nubile Iv 11. ^'i 1-TiL-hr .-Vir.nl,;>- mt.1 l-.nd.'i.lrc^s^ kon- 

ugraiDjnbeieincru i : i:tilei n L 'n ^n^i-buri ^viri^n 1'HIN I 

lliviurai l>v /.em- Erroi) USING trlaiitil die formatierre 

ab, soDdcm vcttweija ■« Aussiibc vuii Zdhlm (..1!ASH 

ragcgtbeiien Pio£rariim- MbiclLL audi die MoLK-likeii 



unm slarlen! AOTO 



■ ■■■ ■■■ ■■. : . 



MriglithkcilcTi vonGBASlCM 



iSS 


VC 1 volzke Computer 
p Peripherie 


1 v c 
p 


m gene- 


."!■■:■■'.• 


Jmse 


HI 


3icT^ UNIMENT-Seikmnaul 


"""3"^ 




n'^n HasmVBfete.Awrriiliesa 


OUPullarh 
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MihereineReiheer- £ur den CM gelungen isl. die 

d&luimsliHiii^E Be- taum Wunschcoffcn iafll. Und 

-rarfieitei /.ihlen im wcnn dmh. so Welel GBAS1C 

Lal-.Itodinal-.Binar dieMo 6 lichkeil.d.sciif Bok-Kk 

ll-Syslem. Up ich iu .icfimeremaileiiiings imi in 



igen urn Progmmm 



-,;im„ 3SpEi'0-wiiHimnK-ii°wiril iSMOVwt ,m'k-.,i 
kehrt. Da die MSglichfceiten zungftrSpiele. 



VC20 



a gosub isaa 

3 GOSU84000 



J REM HflEUSER E 



1000 REM FLU6ZEUG I 



:r Komakl fl-9/84 






9 POKE PB,3E 

1 POKEG3,T3:P0KESS, 5 



esse goto a sea 



• fthC PEEKU+EE 



VC20 si 



4625 IF PR<7?03 THEN PR=BIRETURN 
4630 IF PEEKlPRlrZF THEN S000 



> F0RB-1TTJ3 



10020 DATA 0,98,2,8,102,3 

1B05B DATA 33, 32, 0,1, 33, 0,-1, 32, 0,-33, 32, t 
10868 DflTfl -21, S3, 3,31, 7fl,3, 23, 75, 5, -23, 7: 



Bnchstaben schreiben fiir den VC 20 



1 NEXT Z :FORY=1T03B:NEXT YINEMT T 

"MITTORPSWEQ : 



f BILDSCHIRMFARBE 

! DIE VARIABLE D STEHT FUER 

": DIE EIN7.ELNEN BUCHETflBEN UEROEN 
I EFiZEUGUNG EINES TONS SEIt 
-■ WARTESCHLEIFE UNC SPRUNG 



! BUCHSTHBEN FESTLEBEN 
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ZX SPECTRUM 



Superhirn 


410 NEXT K 

420 FOP z=l TO 6 


IB 


GO SUB 9000 


430 IF a(i)<>i!:i THEN LET t= 


tee 


BORDER 0: PRPER : INK ?i C 


1 


LS 




440 NEXT z 


113 


PRINT AT 0*.3t*"M ■ ■■■■" 


450 IF t=0 THEN GO TO 1000 


13@ 


FOP ;=2 TO 28 STEP 2 


460 LET t<=0 


140 


PRINT FtT lZi'DDQDQ D" 


470 IF d=2 THEN GO TO 1500 


150 


NEXT Z 


60O GO TO 200 


155 


PRINT INVERSE l.RT 14.20." 


lviCte PRINT BRIGHT 1; FLHSH 1; I 


1 2 


4 5 6" 


UK .sC i ■; FIT e.^.i-'E"; INK a<2).HT 


156 


PRINT INK ljflT 15.20: "B". 


0.4;"SJ"; INK ?C:i:;Fn 0,6; "I)% IH 


INK 2, AT 15, ££.:"[!)"; INK 3;AT 15.. 


K a(4)>flT 8,8.= "HI"! INK *<5>;AT 


24; "H": INK 4.iRT If., 2*; "M" i INK 


,10;"B"; INK 3£6>;HT 0,12;"SI" 


5; AT 


15,2Sj"H"i INK 6,RT 15,36;" 


1010 PRINT HT 5,22:"iIE HrtEiEH- 


V 




1020 PRINT HT 6.22; "GENONNEN!" 


15? 


PRINT INVERSE 1 ; FIT 16,20." 


1030 GO TO 2000 

1500 PRINT AT 5.22. "SIE HRBEN" 


160 


PRINT HT 21.2;"1 2 3 4 5 6" 


1510 PRINT HT e^S^'VERLOREN!" 


170 


FOP z=l TO 6 


1520 PRINT FLASH 1: BRIGHT 1; I 




LET code=l+INT (RNDK6) 


NK */l);HT 0.2;"EI".i INK aC£J:HT 


J98 


LET 3'.z>=cade 


0,4: "B" ■ INK .?':i):fn . 6 .:" " Dfl" j IN 


196 


NEXT z 


K a(4>;FiT t>,&, "fflil", INK a<5);AT 


200 


LET f=14i LET d=d-2 


,10;"1)". INK af.eOifiT 0,12i"S!" 


219 


FOR z=l TO g 


2000 PRINT AT P.. ,-■;?. "■Cn'HEINMRL" 


220 


PRINT AT 7.20i"UELCHE FARBE 


2010 PRINT HT 9.25i , 'j••'n ,, 
2020 PAUSE 


225 


PRINT AT 9.20i"8UF FELD "iZ 


2030 IF [NKEY*=" j" THEN RUN 


230 


PAUSE 


■2040 IF INKEYS="r," THEN STOP 


235 


LET iS=lNKEYS 


2050 GO TO 2020 


250 


IF i*<"l" OP i*>"6" THEN C 


8800 PRINT PAPER @jHT 7.20," 


TO 


235 




260 


LET MZ>CSI« i*-43 


SS10 PRINT PAPER 0;RT 9. 20.:" 


295 


PRINT BRIGHT 1; INK bClJifl 




T d,z*2i"lir 


S820 RETURN 


338 


IF INKEYSO" " THEN GO TO 2 


9960 DIM ?<£>: DIM b<6>: LET d=2 


40 




2 


305 


NEWT z 


9010 LET f=14. [)IH 9(6;: DIM ire 


320 


GO SUB 8800 




321 


FOR z=l TO 6 


9015 LET t=9 


322 


LET a<z>=a<z> 


9020 FOR h=0 TO 7 


323 


NEXT z 


90-30 READ i: POKE USR "h"+h» i 


324 


FOR z=l TO 6 


9040 NEXT h 


325 


LET i'z>b(;i 


9050 DFlTfi 255.1.-9, 1S9. 159.159,10 


326 


NEXT z 


9.129,235 


330 


FOR z=l TO 6 


9060 FOR j=0 TO 7 


335 


IF WzX>9(z) THEN GO TO 3 


9070 RERO k POKE USR ".i" + j,k 


50 




9030 NEXT j 


348 


PRINT BRIGHT 1 j HT d.-fV'T" 


9030 DATA 2:55- 12?. 129. .129, 129, 12 


345 


LET f'=f+l 


9,129,255 


346 


LET 9',z>=0 


9100 FOP l^ig TO 7 


34? 


LET b'.z>=8 


9110 PERL, a:- POKE USR "l"+l,m 


350 


NEXT z 


9120 NEXT 1 


360 


FOR x=l TO 6 




370 FOP z=l TO 6 


4 


3?5 


IF b(i)()*?) THEN GO TO 4 


9140 FOR Yi=0 TO 7 


00 




9150 READ o: POKE USR " r. " +n , o 


580 


PRINT BRIGHT ilKf & t ; " 1 " 


9160 NEXT n 


390 


LET f=f+l 




391 


LET bCz>=3 





395 


GO TO 410 


9500 RETURN 


408 


NEXT z 


9900 SHVE "suPerhir-n" LINE 1 
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ZX SPECTRUM 



<t 1934 by Andreas Jakob 

C 

■E MATCH UP SOFTWARE 

■t WeinberSstr. IS 

'I 

it 753? Rentch l nye-n-S i Ti'ae-ri 



3 CLEAR 30000; INPUT "PAPER * 
"; LINE aS: LET P=VRL a* = PAPER 
P ; BORDER P : CLS = POKE 32nR3.fi: 

POKE 32004,0 

4 INPUT #0, '■Koerdinaterisendsr 
nws ' (j^-n!"i LINE aS 

5 IF «*=■',>" OR aS="J" THEN G 
TO 10 

6 IF a*="-n" OR aS="N" THEN = 
GO TO £0 

7 GO TO 4 

10 INPUT #9."X-Krjordinate <z.z 
t.>";<PBEK 32063 >i "<>=" ix 

11 IF x>255 THEN GO TO in 

12 INPUT #0;"Y-Koor-divwte(z.zt 
. >■'.:( PEEK 33004).; '■< >="jy 

13 IF *>173 THEH GO TO 12 

14 POKE 32003, n.- FT<KE 329 04 , a 
20 INPUT #0; "Rbsaver. ?"; LINE 



1 OR *S="J" THEN G 



25 GO TO 20 

30 RANDOMISE USR 32000 

31 GO TO 4 

35 INPUT tt0;"Filename="i LINE 
*S 

36 IF LEN a«>10 THEH GO TO 35 

37 SAVE aSSCREEN* 

38 GO TO 40 

40 INPUT #0j"Ge5.ch.JiT,dia|feit-=. ? 
*nderu.vi9 ?'" ; LINE a* 

41 IF AS= l, ,i" OR -3.*= ,, J" THEN G 
TO 50 

42 IF aS="n" OR aS="N" THEN G 
TO 36 

43 GO TO 40 

50 INPUT #0; "Geschwindi9k.-?< 
10XH3=190y';9 

51 IF 9=100 THEN POKE 32AS13 , j 
81 ■■ POKE 32087, 1= GO TO 30 

52 IF 9<1 OR 9>10 THEN GO TO 
50 

53 POKE 32837. 9 ; POKE 32083.11 
3 

54 GO TO 30 

55 GO TO 30 

F,W*n SflVE "WRUEft" LINE 9<W0 

5001 STOP 

9000 FOR n=0 TO 169: RER [) , : p 0K 

E :::i^f?0 + ii.a : NEXT f\< GO TO 1 

999'? DATA 9, 0, 1 . . ij . 197 . 205 . 221 . 

34. 133,62.0. 185,32, 1.12,62,235,1 

85,32,1,13,62.0,134,32,1,4,62,17 

5, 1.84.32, 1,5,21?, 13.254,2,32,1,1 

3,254,1.32,1,12,254,8,32,1,4,254 

,4,32.1,5,254,3,32.2,4,12,254,1! 

.32.2,13,4.254.5,32,2, 12, 5-254,1-; 

.32.2.13.5,254. 13,32, 1,291. 197.fi 

.2.118,16,253,133,237,67,3.125.2 

05,84 31 .5-:. .6,265. 107, 13, 1,0, 2 

95,5,125 



Zeilen-Delete fur den ZX Spectrum 



ben muB. Die* 

iind erm&glkhl d; 
li^bievieierZeilc 



:.B.r CLEAR M'JW.Lw.bc] 
i EAR ?IWi Di (b Man'hi- 
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vcrarbc 


ut, ur 


h tonnle KW.^ISdKfc 






PFM 


■delete" 








.oscheri y.Basic-Zeile 








I 1984 by M.Srhslz 




10 


FOR 


^=PEEK 23730-t-256*PEEK 


V 


3731 + 1 T( 


PEEK 23732+256*PEEK 


M 


733 








20 


Kl-H! 


y- POKE x,*: NEXT x 




100 


DHTf 


42,113,92.35.285.11? 




5.237,91, 


37,92,19,229,167,237, 


->:.■■ 


,225 


H 


159.30,213,159,30,235 




29.25,201 







■ Tips + Tricks + Tips + Tricks + Tips | 

Spectrum X™s D 4 d r h C d B * e ^" f™ ™^™ &*!* ™ b.- S™7 wT^ifS 



Iro engliscben Benulztr- Ergcbnis i- 

I [iimflwdi'lKu [ au rSL-iiel73 Eingabcvc 

<lis :• Kapik'l mil dcr tlbcr- POKE 2 



!| 0, "™OKE;" d iiuch 23609>0 P° ke0i 



emJcrprogramiDCn. Nali 
csrdil die Mogliiiskril. 

■nwcimng cincn Hinwcis dcr II KBM 



POKE 23756,(1 (ENTER) 



n noch gelOsthl wcrden. 
leDen belietngen Stellen 






(23658,11 ergiht den norm 
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Colour Genie 



Tips + Tricks 



.enCMR${u)Wsi:iIR:tfJii.- 



"DRUCKFJRS1ATU5 

TORTS AtiFAUSG ABE 



teineu Wert aul den 
in bringen, muB 
rher die Variable 


Byte Ma.schineiiprogramni«, 
das -isi nculich in MC er- 


H dem gewunschten 


sehic-n (,sl aber der fiddle 
BIBdsinn. mir in Masehinet. 


bt jedesmal diesen 


-■Iioil'il Wce eefunden: Die 

i •> h rvellen 4026H/ 

■ liiidiallen E7 04. 
D.h. die Drackerlreiberrou- 



H-99/4Amit 
Extended-Basic 






n .multiple 



die Herausfilterung i 



T«W 


BASIC-Btfthl 


B 







feSetft) 


< 


RETURN 


K 


END 


M 


LET 


O 


UNBREAK 


o 


UNTRACE 


J 


DATA 

RES! ORE 


v 


NEXT 


i 


Swn' 


< 


TO 


3 


OPEN*" 


FCTN; 


NOT 


» 


XOR 



fehls »LPR1NT«: dueh Fehl- 


DCBimRAM .!! 


Atari 


anzeige. Narti einigem Ober- 


ist Die Routine fiir »Nor- 








VentifMhte S1TCK-Abfr»« c 


dem Motto: Has i'lerd wird 


Druckera liejrr ab 05UEH. 










sondem i..)i. vim! Das heiBt 






Jfcii .wf rvuisvl! "Sadie den 


Durch POiCE 1C422, 14; 




lililvr direkt hei OITPUT 


POKt lo423,3 wlrd die 


.i-hnell,: MOclioUkci ,„! die fol- 


BYTE auf Printer... Da 




gende: 


suihle i.ti nun das ROM ab 


■ : ■■■.:. ■.-...' : 


RICHTL1NG = 1'IKiG Hit 


iler Atiresse UViBH diirel! 




PTRIO(l). 


Lm.KiieSelldlidlaiddeTiFeh- 


wandftei. wir kfiimfi, iiut -h 


Du .:•:■ l-'iiinrkntipfe der Paddle 


ler im Interpreter: Gleich am 










STICK recbts/links. ei liidi nun 










rn DP 10 k me 




Zekhen 0, 11 Oder 12 ist. 






Werui es ist, dann wird 




-I. Dabcider Steuerung von 


Mi-.-rii : ,,i.r mdii>(!!?)ainee- 


schrifr. Underline n. a. Fuirk- 


■ ■■■■ :-.- !S [ der Wen 1 zirr 


druckt. 11 unci 12 wrden in 




Poshion:v.iriar.|enaddiert[>det 


den u.eisien Fallen einfachzn 






13 (-L'R| umfunlrtionieri. 


Fragt mich jetzl aber blofl 


position'™ position + 


.Nachteil aussehalten? Ganz 


:.■: ...:: :■: . ■■.■.-.: 


S^dteTieue^hw ' 


tiilfeprogranim.. von T(."S ein 


CMMim Klrfn 


clieii r.intei Jer Variable POSI- 



Tips + Tricks se 



Tips fur den Oric 



der auf die Default- 


raJer.uajr: 755 fCHACTI steu- 










ertdieCurJM-undZcjdieadat-- 










5lcUung.POKE7S5.fi.ir;lltzj,im 










M:-^!'!. 1 : alk 1 Z^ll-Eilii an] .1,-a 
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n). Wenn man jem 
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Mini-ATARI 
-Trickfilmstudio 



spielen. Gefallt daa Wort 
Diskette 5ptut;..T'> tini! sr 



inlichenEffekliuuDgG- 

! nur aus cii.cn. oder 
wefligenZciclH.T.beste- 

;rcn Taste START, so 



a (BREAK naiiirlidi m 





>»a*>n_... 


Jg *™.™ 






40 REM »•• MENUE *•* 


460 REN «• FILM ANBEHEN ■•• 






130 ? IT " >5t Noub OBnchwindlakBit" 


510 FOB P-L TO O.MEJTT P 

530 HETUPN 

540 REM •"■ FILM LADEN *** 

550 GRAPHICS 

640 F$[N,N)-CHH$CA> 








660 CLOSE *1 






260 IF PEEK(53279)«9 THEN CLOSE ifl.RSTUHN 


680 REM * OESCHWNDIGKEIT AENDERN • 






730 REIUHN 






380 ? " D: AIRPORT. 84" 


To sp "■ ^.ttS 













Taschendieb 

90 CC=2:DIM B(5).F(6):LE-3:SK-0.9:SKB=0.95 
100 REM HINTERGRUND 
110 GRAPHICS 7+16tC02 

115 SETCOLOR 0,0,0: SETCOLOR 4,0,0:SETC0L0R 1,0,0:SETCOLOR 2,0,0 

116 COLOR 1 

120 PLOT 0,79:DRA»TO 159,79 

130 FOR 1=20 TO 139 STEP 10 

140 PLOT I,SO: DRAWTO 1+20.90: DRAWTO I+20,94:DRAHTO I ,94s DRAWTO I,90:POSITION 1,9 

4:P0KE 765,1:XI0 18,#6,0,0,"S" 

150 NEXT I 

160 COLOR 1:F0R 1=1 TO 5:PL0T 159,89+I:DRAWT0 140, 89+1: NEXT I 

162 COLOR 3:PL0T 1C3.79:DRAWTQ 103 , 10: DRAWTO Sa,I0:-'F.AWTO 5i,79:?;v-ITI0N SB,10:F 

ORE 765.3:XIO 1B,#6,0,0,"S" 

200 COLOR 3:PL0T 40,79;DRAWTO 40,10:DRAWTO 0,10:DRAWTO 0,79:POEITION O,10:P0KE 7 

"- 3:XI0 18, #6.0.0, "S" 

210 COLOR 3:PL0T 159,79: DRAWTO 159,10: DRAWTO 120,10: DP.A*?0 12 J, 73: POSITION 120,1 

OtPOKE 765,3:X10 1B,#6,0,0,"S" 

219 COLOR l:FOB F=0 TO 120 STEP 60 

220 FOR 1-6 TO 30 STEP B 
i FOR 11-13 TO 53 STEP 8 

PLOT I+5+F,II+5:0RAWT0 I+5+F.I1 : DRAWTO I+F, II : DRAWTO I+F.II+5: DRAWTO I+5+F.I 

250 NEXT II 
260 NEXT I 

270 NEXT F 

3 COLOR 2:F0R 1=1 TO B:PLOT S0,5:+I : LEV AUTO ICO, 50+I:NEXT I 
320 RESTORE 330:FOR 1=1 TO 18:READ A,B,C,D:COL0R 3:PL0T A,B:DRAWTO C,D:NEXT I 

330 data s2,52,7c,&;-,7:.,=? 7 7c.,p.£ - 7?, c ^ l e.;:,: : j.E,:,:-.i,e.2,:': > L;/:j.7o,55,73.56,70,5J 

,54,62,54,62.54,52,52,62,53 
340 DATA 62,52 
345 DATA 76, 52, 76, 56, 76, 56, 84, 56, S4, 5i,SJ, ::.= , g J, 52,84, 52 

DATA 98,52,90,52,90.52,90,54,90,54,38, .!.'■■■.' !.'■■. ■.■■■.■... ; ■.56,90,56 

J SETCOLOR 0,0,15:SETC0L0R 4,0,S:SETC0L0R 1 ,0,0:SETCOL0R 2,13,8 

REM MEN5CHENMENGE 
705 COLOR 1:M=2:ST=0 

FOR 1-1 TO 5 
712 Z=INT(RND(0)-83+ST+8 
715 IF M+Z>32 AND M+ZC66 THEN 5T=ST+l:GQT0 712 

IF M+Z>95 THEN AM-I-HOOTO 1000 
725 H-M*Z:B(I)=H 

730 PLOT M+1,6B:PL0T M+3,6S:PL0T M,69;PLOT M,70:FL0T M+2,69:FLOT H+4,6S:PL0T M+4 
,70 

740 PLOT M+1.71IDHAUT0 M+3,71:FL0T K,72:DRAWT0 M,75:PL0T M+4,72:DRAWT0 M+4,75:FL 
OT M+2,73:FL0T M+2,75 

75.0 PLOT M+1,76:DRAWT0 M+1,7S:PL0T H+2,76:DRAWT0 M+2,76:PL0T M+ 3 , 76 : DRAWTO M+3,7 
8: PLOT M,78:PLOT M+4, 78 
760 NEXT I 

1000 REM PLAYER SETZEN 
1010 PM=PEEKfl06)-32:PB=PM'256 
1020 POKE 54279, PM 

1030 FOR QQ=PB+1022 TO PB+1792:P0EE Q5,a:NEXT 00 
1040 X=170:V=175 
1045 POKE B23,1:P0KE 709,0 
1047 POKE 53256, 0:POKE 53257,0 
1050 POKE 704,1: POKE 559,62:P0KE 53277,3 
1060 GOSUB 3000 

2000 POKE 705,123:PX-150:PY=175:POKE 53249, PX 

2O10 RESTORE 2100:FOR Q=PB+12eO+PY TO PB+1296+PY: READ T:FOKE Q,T:NEXT 
2100 DATA 0,28, 124, 20, 32, 24, 24, 36, 60, 60, 60, 24, 30, IB, 48, 0,0 



2200 REM BUS 

2210 POKE 7Q6,70:BY=192:BX=10:POKE 53250. BX:POKE 53250 3 

t-rl ™ STOBE "WiFOR Q=PB+1536+BY TO PB+1552+BY:READ T:P0KE T:NEXT 

^OOGOlS^ ' 252 ^ 34 ' 170 ' 170,171 - 250,2 ^' 175,355 ' 189 - 85 ^ 39 - 130 

2500 REM BRIEFTA5CHE 

2502 AA=INT(RND(0)*AM)*1 

2503 FOR BB>=1 TO 3 
2505 FOR BR-1 TO 3 
2507 A=B(AA)+BR 

2510 COLOR CC:PLOT A.71+BB 

2513 IF BB=2 THEN PLOT A-3,71+B3:DRAWT0 A+2.71+BB 

2530 NEXT BB 

2S00 RETURN 

3000 REM DIEB INITIALISIEREN 

3010 RESTORE 3020:FOR A=1536 TO 1560:READ I: POKE A,I:NEXT A 

20" , ■;,i=0,C r iV7,:::-r..- ! , : , 

3030 RESTORE 3040:FOR A-260 TO 355;READ I: POKE A I-NEXT A 

3010 DATA 56,56,255,36.63,60,60,60,124,60,24,24 24 24 120 

3050 DATA 56.56,254,40,36,56,56,60,56,56,24 24 24 24 28 o' 

3060 DATA 28,28,63,146,130,94,62 62 62 30 12 12 12 12 60 

3070 OATA 56,56,251,41,33,58,60,60 56 56 24 24 24 24 28 

3060 DATA 28,23,127,20.6, 23, 6,127, 93. 93, 93, 20,20 20 54 6 
■-'-' '■,'-.".■■ .' . .'.' .' . ( '.6,134, I 54, ■■,.:. 222 L 59 n ' 

--^ FC;S A=l TO 6;READ I ;P(A)=I:HEXT Ai DATA 260.27c 292 "-OS 324 340 

3100 POKE 53248, X:.G=1 ' * ■^"•^ ■ Jflf ' 

40^0 £ ra A =? B + 1 °2 / '+V TO FB-U039+Y:POKE A.PEEKC F(G)-*C):C=C+1:NEXT A 
500 

5000 REM HAUFTPRCGRAMM 

^Oi:: J=STICK(0) 

5015 IF J* 15 THEN 5070 

5020 IF J-7 TH2K C,= ?:7=y^2:0O?\)3 6Jj:::GQT0 5070 

5030 IF J-ll THEN G=1:X=X-2:G0SUB, 6000:G0TO 5070 

5035 O-USRC 1536, PB+1024+Y, 400) 

5040 IF J=14 THEN Y=Y-2;C>5!lF Y<175 THEN Y=Y+2 

5050 IF J=13 THEN G-S:V=Y*2:I7 ")'".; then Y=Y-2 

'..':-. :, 303UB 6100 

507O POKE 53278,0 

5375 ON FEEK(53252) GOTO 5080,620;;, 5-53,5083, 5200, 6300 

5080 IF STRIG(0)=0 AND G<>5 THEN D=iJSR(1536,PB+10;M+Y,F(G+2)):GOT0 5070 

5090 IF PEEK(53260)=2 OR PEEK{53250)=4 THEN 6200 

5L0D IE y=175 AND G-5 AND STRIG(0)-0 THEN 8000 

5130 IF P=l THEN 9000 

5150 IF RND(D)>SK THEN P=1:G0T0 9000 

5160 IF BU=1 THEN 9500 

5170 IF RND(0)>5K3 THEN BU=l:G0TO 95O0 

5200 GOTO 5000 

6000 REM DIEB HORIZONTAL 

6010 D«USR(1536,FB+1024+Y,P(G)) 

6030 POKE 53248.X J RETURN 

6100 REM DIEB VEHTIKAL 

6110 D-USR(1536,PB+1024+Y,P(G)) 

6120 RETURN 

6200 REM DIEB GEFASST 

6205 POKE 53278,0 

6210 D-USR(1536,PB+1024+Y,P(6)) 

6220 FOR 1=200 TO 10 STEP -10:SOUND 0,I,10,10:SOUND 1,200, 10,10s NEXT I: SOUND 0,0 

,0,0!SOUND 1,0,0,0 



6222 D-USR(1536,PB+1024+Y,400) 








6223 X=170:Y-175 








6225 LE=IE-UIF LE=0 THEN 8200 








6226 D=USR(1536,FB<-1024+Y,F(1)) 








6227 POKE 63246.X 








6229 FOR 1=1 TO 500:NEXT I 








6230 GOTO 507Q 








6300 REM BRIEFTA5CHE EERUEHR7 








6310 FOR 1-1 TO 3:50UND 0,300, 10, 10:FOH 11=1 


TO 5:NEXT II:SOUND 0,0,0,O:NEXT I 




6320 CC=3:G0SUB 2603 

6330 DM=DM+INT(HND(0}*100)+1 












7000 CC-2:G0T0 4999 






60 00 REM FLUCHT 






8005 FOKE 63277,0 






8010 GRAPHICS 2+16 






8012 IM=IM+DM 






8020 POSITION 0,2:7 #6;"DEINE 'EINNAHMEN'" 






8030 POSITION 0,3:7 #S;"BETRAGEN "jDMj" DM" 






8040 POSITION 0,4i? #6i"LEBEN "iLE 






8042 POSITION 0,6:? #6i"EINNAHMEN INSGESAMT 






8044 FOSITION 0,7:? *6;IMi" EM." 




- Werhairriil wckhetLti^ung 


8060 FOR 1=1 TO 1000:NEXT I 






8060 DM=0:SK=SK-Q.06:SKB=SKB-0.03 






8070 FOR 1-1 TO 5:BU)=0:NEXT I 






8100 GOTO 110 






8200 REM GAME OVER 






3205 POKE 53277,0 






B210 GRAPHICS 2+16 




'pti'li^n. Joiiiil hicr tin ■Jirtt- 


6220 POSITION 5,6:? #6|"GAME OVER" 




ler Vcreleith moplii/la i^t. 


8230 POSITION 5,7:? #6;"DM: "jIH+DM 






8240 POSITION 5,3!? #6;"DRUECKE START" 






8250 IF FEEKX 53279 )=6 THEN RUN 






8260 GOTO B250 






9000 REM FOLIZIST BEWEGEN 






9010 FX=PX-3:IF PX<5 THEN P-0:FX=200:GOTO 5160 




9020 POKE 53249, PX 
9030 GOTO 5160 










9500 REM BUS BEWEGEN 






9510 BX=EX+5:IF S>:>25f.-' THEN EU=Os BX=10s GOTO 


5000 




9520 POKE 53250, BX:S0UND 0,260, 10, lOiSOUND 


,0,0,0 




9530 GOTO 5000 
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CHAMALEON S r £™T{ Atarian 

Fttr den Apple II AMuuT 4a s£ciLt spring "as ComillOdore- 

Proeramn. in Zeile 135 und _ „ 
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(Zeile 3S ■ 48). Hier nur cine rcn das Hauptprograram un<] """S- - 

. .1 !i, „m™ng del. Pr,,- crzeuaen die Spiclgraf/k Z^ile Das Spiel fclauf Apple -Com- VerkHUIt 
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Fragebogen 



-^r 

Fragebogen 

lehbin □ Schiiler IchlesefofgendeZBitschriften: 

Student "Hw "™ch- resen 

n ^™- de ' P9j> ° ° D 

lehbin D Beamter Homecomp.ter □ D 

Jahre □ Selbtfandiger ^ U □ O D 

at D Rentier Happy Compute, n D n 

D Ich habe auch bertiflich mit Computem zu tun 

Computrotlic DUO 

weitereTitel D a □ 

Computer: 

Drucker: left gebe pro Monat DM tiir mein Computer- Hobby 

FToppy. aua - Ca DM furZeitschriftim und ca DM 

Sondes: f0rBiiCf,er - 

ca Monster folgendeeGeraleanschaften: D ^^ D manchmal D otters 

D regelmaBig 

Zu MgcnUi IMm KM Idi gra Mu g«H Omputur-Kuntakt 

mehr Bteisn- weniger D sehrgut E gut D mittelmaBig 

Spielreviews D D D 

Berichte OOer neue Computer n □ n In Computer-KoniaM sollten 

Zusatzgerate □ □ □ ™ hI J^*" ™ a "9 er 

Allgemelnes D □ D „ . , _ „ „ 

° s ° ssrr s s o 

Amvendungsprogramme D □ ' □ 

iriefe pa'P abgedruoktwerden. 

Termlne □ D D Ich wiirde Computer-Kontakt geme 

Tips + Triqks □ C D p mora t|j C n Q 14-tagig D wochentiict! lesen. 

Leserfragen D D n 

Hilfsprogramme ODD Wenn Computer-Kontakt ab sofort regelmafiig monatlich 

Eaktronikecke ana erscheint, welchen Seitenumtang sollte die Zeitung dann 

Kleinanzaigen O D D haberi? 

Formatanzeigan n D n □ 80 n BO O 100 D 120 D 140 

Knobeleien n D D D 160 D 1B0 D 200 Ssiten 

□ IchwJrdedleabgadruckten Programme gem im Kas- Welchen Preis wiirden Siebel Ihrem angekreuzten Seiten- 

settenservice Beziehen. umtang tur angemessen halten? _ DM 
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Achtung: 
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